home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d3 / allmac21.arc / FILE12.ARC / FILE12.QM < prev    next >
Text File  |  1990-08-27  |  5KB  |  100 lines
  1. *                            FileManager v1.2
  2. *                               FILE12.QM
  3. *
  4. * See FILE.DOC for Requirements and Running Instructions.
  5.  
  6. * Version History:
  7. *
  8. *  1.0 - Initial version named SORT10.ZIP
  9. *  1.1 - changed and shortened Alt-f3 to keep extraneous files
  10. *        from ring
  11. *      - Changed file names from SORTxxx.xxx to FILExxx.xxx.
  12. *  1.2 - DX Directory Extended not included to save download time.
  13.  
  14. *┌───────────────────────────────────────────────────────────────────┐
  15. *│@f1 Selects file to LOAD from sorted list of files in directory    │
  16. *└───────────────────────────────────────────────────────────────────┘
  17. *     Does not read macfile if txtfile selected.
  18. *
  19. @f1 macrobegin
  20.         editfile "file.srt" return                      * load file.srt
  21.         begline
  22.         pause                                           * select sort type
  23.         markblockbegin endline markblockend 
  24.         copy                                            * copy word to scrap
  25.         dos "file-DX " paste return return              * sort directory
  26.         editfile "j:$" return quit                      * load sorted directory
  27.         editfile "j:$" return                           *
  28.         cursordown return                               * insert blank line
  29.         pause                                           * pause to select
  30.         markword copy                                   * select txtfile
  31.         quit                                            * quit j:$
  32.         editfile paste  ".qm" return quit               * load txtfile
  33.         editfile paste  ".qm" return                    *
  34. *
  35. * 90 bytes Sat  07-28-1990  15:22:10
  36.  
  37.  
  38.  
  39. *┌───────────────────────────────────────────────────────────────────┐
  40. *│@f2 Selects macfile to READ from sorted list of files in directory │
  41. *└───────────────────────────────────────────────────────────────────┘
  42. * Also loads txtfile of macfile selected.
  43. *
  44. @f2 macrobegin
  45.         dos "file-DX mac d-" return return              * sort macfiles by date
  46. *       dos "file-DX mac n"  return return              * sort macfiles by name
  47.         editfile "j:$" return quit                      * load sorted directory
  48.         editfile "j:$" return                           *
  49.         cursordown return                               * insert blank line
  50.         pause                                           * pause to select
  51.         markword copy                                   * select macfile
  52.         quit                                            * quit j:$
  53.         editfile paste  ".qm" return quit               * load txtfile
  54.         editfile paste  ".qm" return                    *
  55.         macroread paste ".mac" return                   * read macfile
  56. *
  57. * 88 bytes Sat  07-28-1990  15:22:27
  58.  
  59.  
  60. *┌───────────────────────────────────────────────────────────────────┐
  61. *│@f3 Selects file to DELETE from sorted list of files in directory  │
  62. *└───────────────────────────────────────────────────────────────────┘
  63. * Be careful to select only the file you want deleted. Start by first
  64. * selecting only "bak" to delete. You may want to make some dummy backup
  65. * files such as 1.bak, 2.bak,.....etc to try this macro.
  66. *
  67. *
  68. @f3 macrobegin
  69.         unmarkblock insertline                          * insert blank line
  70.         markcolumn currentfilename markcolumn           * mark currentfilename
  71.         storescrbuff "1" return delline                 * store filename/scrbf 1
  72.         editfile "file.srt" return                      *
  73.         pause                                           * pause to select sort
  74.         markblockbegin endline markblockend copy        * copy sort selected
  75.         paste                                           * paste selected line
  76.         begline markword                                * mark filext
  77.         storescrbuff "2" return                         * store filext/scrbf 2
  78.         quit                                            * quit after paste/mark
  79.         dos "file-DX.bat " paste return return          * sort directory
  80.         editfile "j:$" return quit                      * load sorted directory
  81.         editfile "j:$" return                           *
  82.         cursordown return                               * insert blank line
  83.         pause                                           * pause to select file
  84.         markword copy                                   * select file name
  85.         insertline                                      * insert line in j:$
  86.         paste                                           * paste file name
  87.         endline "." getscrbuff "2" return               * paste "file.ext"
  88.         markline copy                                   * copy  "file.ext"
  89.         dos "del " paste return return                  * del   "file.ext"
  90.         insertline                                      * insert line in j:$
  91.         getscrbuff "1" return                           * get currentfilename
  92.         copy                                            * copy currentfilename
  93.         quit                                            * quit j:$
  94.         editfile paste return                           * edit currentfilename
  95. *
  96. * 128 bytes Sat  07-28-1990  15:22:43
  97. *
  98. *
  99. *..Tom Hogshead  Mon  07-30-1990  01:51:49
  100.